home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / dosutils / batkit57.zip / COLOTONE.BAT < prev    next >
DOS Batch File  |  1990-05-26  |  920b  |  41 lines
  1. echo off
  2. :SELECT
  3. GETKEY /W30/K"CTX"/F"COLOTONE.GKF@S"/E
  4. if errorlevel 88 goto END
  5. if errorlevel 84 goto TONES
  6.  
  7. :COLORS
  8. GETKEY /M"#&0E@C"/W0/N
  9. getkey /f"colotone.GKF@C"/w0/n/s
  10. WAIT 000500 /c
  11. GETKEY /m"@C#&6AEnter #&CEX#&6A to exit."/w0
  12. ECHO 
  13.  
  14. :GETCOLOR
  15. GetKey /l2/V"COLOR"/M"#&0EEnter COLOR value (00-FFh) to test [xx]: @O"/S
  16. if errorlevel 89 goto get2
  17. if errorlevel 88 goto EndC
  18. :get2
  19. if .%COLOR% == .X goto ENDC
  20. GETKEY /M"#&%COLOR% This is what [##&%COLOR%] looks like!  =*=*=*=*=*=*=*=*=*  "/w0
  21. goto GETCOLOR
  22. :ENDC
  23. SET COLOR=
  24. goto SELECT
  25.  
  26. :TONES
  27. GETKEY /F"COLOTONE.GKF@T"/N
  28. cls
  29. :GETTONE
  30. GETKEY /K"1234567890ABCDEFX"/M"#&0AHex TONE value (1-F) to test {X to quit}: [?00] "/V/E
  31. if errorlevel 88 goto ENDT
  32. GETKEY /W1/M"#&20  >> &%GK%00 sounds like this:@T08#&%GK%00 @T0 @T02#&%GK%00 @T0 @T#&%GK%00"/N
  33. goto GETTONE
  34. :ENDT
  35. goto SELECT
  36.  
  37. :END
  38. SET COLOR=
  39. SET GK=
  40. GETKEY /M"#&0E@C"/W0/N
  41.